
************************************************************************************************************
**#							TABLE 4 - FIRM DISCLOSURE
************************************************************************************************************

capture cd "/Users/joshw/Dropbox/CEO Pay Ratio/Analysis/"
use "Data/Temp/dataset_main.dta", clear

********************
*Total Words
********************
est clear
eststo: xi: ppmlhdfe words pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: ppmlhdfe words pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: ppmlhdfe words ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: ppmlhdfe words ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
esttab using "Output/Tables/RF/T4_firm_words.csv", b(3) pr2 varwidth(25) title("Total Words") order(pr_quint_5 pr_quint_1 ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop(_cons) replace

********************
*Spin Sum
********************
est clear
eststo: xi: ppmlhdfe spin_num pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: ppmlhdfe spin_num pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: ppmlhdfe spin_num ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: ppmlhdfe spin_num ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
esttab using "Output/Tables/RF/T4_firm_spin.csv", b(3) pr2 varwidth(25) title("Spin words") order(pr_quint_5 pr_quint_1 ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop( _cons) replace
       
********************
*Explain Sum
********************
est clear
eststo: xi: ppmlhdfe explain_num pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1 ,absorb(ffi49)
eststo: xi: ppmlhdfe explain_num pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1 ,absorb(indyr)
eststo: xi: ppmlhdfe explain_num ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1 ,absorb(ffi49)
eststo: xi: ppmlhdfe explain_num ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1 ,absorb(indyr)
esttab using "Output/Tables/RF/T4_firm_explain.csv", b(3) pr2 varwidth(25) title("Explain words") order(pr_quint_5 pr_quint_1 ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop( _cons) replace
		
********************
*Supplemental Ratios
********************
est clear
eststo: xi: ppmlhdfe suppl_num pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: ppmlhdfe suppl_num pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: ppmlhdfe suppl_num ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: ppmlhdfe suppl_num ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
esttab using "Output/Tables/RF/T4_firm_suppl.csv", b(3) pr2 varwidth(25) title("Supplemental Ratios") order(pr_quint_5 pr_quint_1 ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop(  _cons) replace

********************
*Tout Sum
********************
est clear
eststo: xi: ppmlhdfe tout_num pr_quint_5 pr_quint_1 size mtb roa io cas lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: ppmlhdfe tout_num pr_quint_5 pr_quint_1 size mtb roa io cas lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: ppmlhdfe tout_num ln_upr ln_epr size mtb roa io cas lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: ppmlhdfe tout_num ln_upr ln_epr size mtb roa io cas lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
esttab using "Output/Tables/RF/T4_firm_tout.csv", b(3) pr2 varwidth(25) title("Tout words") order(pr_quint_5 pr_quint_1 ln_upr ln_epr size mtb roa io cas lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop( _cons) replace
